home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tool-inc.zip / VARSTR.INT < prev    next >
Text File  |  1989-06-02  |  376b  |  13 lines

  1.  
  2. type
  3.    varstring = ^longstring;
  4.  
  5. procedure releasestr( var str:  varstring);
  6.    (* release the memory used by a varstring variable.  variable MUST
  7.       be pre-allocated or the program may crash!!! *)
  8.  
  9. procedure savestr( var tostr: varstring;
  10.                    from:      longstring);
  11.    (* save a regular string in a varstring; new allocation of varstring *)
  12.  
  13.